www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Label\custom_Label\公用函数include及论坛博客等标签库\nd_include_replace_cont.asp

    <%'$start_ext_newDsoft 以下系统生成,勿删!
'$newDsoft_label_type$:asp_label$end_newDsoft_label_type$
'$newDsoft_label_name$:include_replace_cont$end_newDsoft_label_name$
'$newDsoft_label_sql$: $end_newDsoft_label_sql$
'$newDsoft_label_params$:$end_newDsoft_label_params$
'$newDsoft_label_fenye_num$: $end_newDsoft_label_fenye_num$
'$newDsoft_label_beizhu$:给内容中的关键词 自动加上 已经在基本设置里设置好的链接$end_newDsoft_label_beizhu$
'$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$
'$newDsoft_other_params$: $end_newDsoft_other_params$
'$end_ext_newDsoft%>
<%

function rp_usef_cont(sstrs)
biao2="[ND_sys]"
set rs22x=server.CreateObject("adodb.recordset")
rs22x.open "select top 1 * from "&biao2&" where type='config_settings'",newdsoft_conn_obj,1,1
ddd1=rs22x("data")
dddd12=split(ddd1,"|")
str18=cstr(dddd12(19))

If Trim(str18) <> "" Then

	ContentKeywordStr = Split(str18, "@xndsoft1314@xxx@")
	
	For ixxx = 0 To UBound(ContentKeywordStr)
		
		If ContentKeywordStr(ixxx) <> "" Then
			KeywordStr = Split(ContentKeywordStr(ixxx), "$ms$ndsoft1314$")

kkknnn=trim(KeywordStr(0))

kkkurl=KeywordStr(1)


if kkknnn<>"" and kkknnn<>"delete" then

kkknnnb=split(kkknnn,"#")


for isxix=0 to ubound(kkknnnb)

kkknnnc=kkknnnb(isxix)

if trim(kkknnnc)<>"" then
kkknnna=trim(kkknnnc)
sstrs=replace(sstrs,kkknnna,"<a href='"&kkkurl&"' title='"&kkknnna&"' target='_blank'>"&kkknnna&"</a>",1,-1,1)

end if


next



end if 




end if


	Next


End If

rp_usef_cont=sstrs

end function
%>